f2='PURORD.MEM'
f7='COMPAN.MEM'
f8='DELNUM.MEM'
f10='VISLAB.MEM'
COPY FILE &DR1&F2 TO &DR2&F2
COPY FILE &DR1&F7 TO &DR2&F7
COPY FILE &DR1&F8 TO &DR2&F8
COPY FILE &DR1&F10 TO &DR2&F10
return